From d53bfe4ef99693f234fb927feea86d1aba38888b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 20 Sep 2006 04:13:32 +0000 Subject: [PATCH] (clipboard-yank): bomb out in interactive use if buffer is read-only. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b4330fff5eb..e5d07ac56f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-09-20 David Kastrup + + * menu-bar.el (clipboard-yank): bomb out in interactive use if + buffer is read-only. + 2006-09-18 Ken Manheimer * allout.el (allout-unprotected): Let inhibit-read-only only when diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index cc1351b9032..9a89aa42401 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -510,7 +510,7 @@ A large number or nil slows down menu responsiveness." (defun clipboard-yank () "Insert the clipboard contents, or the last stretch of killed text." - (interactive) + (interactive "*") (let ((x-select-enable-clipboard t)) (yank))) -- 2.30.2